home *** CD-ROM | disk | FTP | other *** search
/ Games of Daze / Infomagic - Games of Daze (Summer 1995) (Disc 1 of 2).iso / x2ftp / msdos / docs / mod2src / lastprog.mod < prev    next >
Text File  |  1987-02-08  |  518b  |  27 lines
  1.                                          (* Chapter 7 - Program 3 *)
  2. MODULE LastProg;
  3.  
  4. FROM InOut IMPORT WriteString, WriteLn;
  5.  
  6.    PROCEDURE Dummy;
  7.    BEGIN
  8.    END Dummy;
  9.  
  10. VAR Index : CARDINAL;
  11. TYPE Stuff = ARRAY[34..55] OF CHAR;
  12.  
  13.    PROCEDURE Smart;
  14.    BEGIN
  15.    END Smart;
  16.  
  17. CONST Number = 120;
  18. TYPE  TypeOf = ARRAY[1..Number] OF Stuff;
  19. CONST Neater = -345;
  20. VAR   Count23 : TypeOf;
  21.       Counter : INTEGER;
  22.  
  23. BEGIN
  24.    WriteString("This is really a stupid program.");
  25.    WriteLn;
  26. END LastProg.
  27.